home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / lightwave / utilities / par251 / rexx / 23pullup.ddr next >
Text File  |  1994-06-23  |  1KB  |  62 lines
  1. /* 2:3 pull up.  Uses currently selected file */
  2.  
  3. Address DDR
  4.  
  5. if (~show('L','rexxsupport.library')) then
  6.     if ~addlib('rexxsupport.library',0,-30,0) then do
  7.         req 'rexxsupport.library fialed to open.'
  8.         exit
  9.     end
  10.  
  11. Emulate OFF    /* turn on file emulation */
  12. Exporter YUV    /* file emulation is YUV */
  13.  
  14. Mode ANIM    /* Import as anim    */
  15. Filter OFF    /* no filter        */
  16.  
  17. Options Results
  18.  
  19. /* Figure out full path of currently selected anim */
  20. if index(showlist(v),'DDR')=0 then do
  21.     Unit
  22.     r=Result
  23.     path='DD'r':'
  24. end
  25. else path='DDR:'
  26. Project
  27. path=path||result
  28. File
  29. name=result
  30. fname=path'/'name
  31.  
  32. /* Do it */
  33.  
  34. Frames
  35. fr=result
  36. i=1
  37. n=1
  38. out=1
  39. do while exists(fname'.'n)
  40.     Emulate OFF
  41.     EMode FRAME
  42.     address command 'copy' fname'.'n fname'_film.'out         /* 1,2 */
  43.     out=out+1
  44.     Emulate ON
  45.     EMode BOTH
  46.  
  47.     address command 'YUVF2F' fname'.'i fname'.'i+3 fname'_film.'out    /* 1,4 */
  48.     out=out+1
  49.     address command 'YUVF2F' fname'.'i+2 fname'.'i+5 fname'_film.'out    /* 3,6 */
  50.     out=out+1
  51.  
  52.     Emulate OFF
  53.     EMode FRAME
  54.  
  55.     address command 'Copy' fname'.'n+2 fname'_film.'out    /* 5,6 */
  56.     out=out+1
  57.     address command 'Copy' fname'.'n+3 fname'_film.'out    /* 7,8 */
  58.     out=out+1
  59.     i=i+8;n=n+4
  60. end
  61. Done name'_film'
  62.